home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / aminet2.lha / AminetRctDE < prev    next >
Text File  |  1998-06-23  |  2KB  |  44 lines

  1.     IF c > 0 THEN DO
  2.         test=RTEZREQUEST(MSG_README,MSG_README_GAD,,"rt_pubscrname="pubscreen)
  3.         read = rtresult
  4.         IF read THEN div = 5
  5.             ELSE div = 10
  6.         IF c/div = TRUNC(c/div) THEN nummails = c/div
  7.             ELSE nummails = TRUNC(c/div)+1
  8.         DO mails = 0 to nummails-1
  9.             CALL Open('mailout','T:FTPMail.tmp','W')
  10.             CALL WriteLn('mailout','begin')
  11.             CALL WriteLn('mailout','uuencode')
  12.             start = mails*div +1
  13.             end = div * (mails+1)
  14.             IF c - end < 0 THEN
  15.                 end = c - (div * mails)
  16.             DO mc = start to end
  17.                 d = filenum.mc
  18.                 dir = STRIP(dir.d)||'/'
  19.                 file.d='pub/aminet/'||dir||file.d
  20.                 CALL WriteLn('mailout','get 'file.d)
  21.                 IF read THEN
  22.                     DO
  23.                         lgt = LENGTH(COMPRESS(file.d))-3
  24.                         filer=LEFT(file.d,lgt)
  25.                         CALL WriteLn('mailout','get 'filer'readme')
  26.                     END
  27.             END
  28.             CALL WriteLn('mailout','quit')
  29.             CALL Close('mailout')
  30.             'MAILWRITE'
  31.             'WRITETO "ftp-mail@uni-paderborn.de"'
  32.             'WRITESUBJECT "Aminet Downloads"'
  33.             'WRITELETTER "T:FTPmail.tmp"'
  34.             'WRITEQUEUE'
  35.         END
  36.         test=RTEZREQUEST(MSG_ASKSEND,MSG_README_GAD,,"rt_pubscrname="pubscreen)
  37.         choice = rtresult
  38.         IF choice = 1 THEN 'MAILSENDALL'
  39.     END
  40. END
  41. cleanup()
  42. ADDRESS COMMAND 'DELETE >NIL: T:FTPMail.*'
  43. EXIT  
  44.